home *** CD-ROM | disk | FTP | other *** search
/ Computer Life 1997 February / Computer Life February 1997.iso / S / Wincim16 / product / SCRIPTS.LIB / FENICS.SCR < prev    next >
Text File  |  1996-09-23  |  2KB  |  74 lines
  1. !
  2. !  Copyright (c) 1995
  3. !  by CompuServe Incorporated, Columbus, Ohio
  4. !
  5. !  The information in this software is subject to change without
  6. !  notice and should not be construed as a commitment by CompuServe.
  7. !
  8. !  FENICS:
  9. !    Connect to FENICS through either NIFTY LL or CompuPass.
  10. !    Arg1 contains TRUE if connect is to NIFTY LL and FALSE otherwise
  11. !    Success:  returns %Success
  12. !    Failure:  saves error msg in %FailureMsg and returns %Failure
  13. !
  14. !+V
  15. ! "3.9.1"
  16. !-V
  17.  
  18. Host_Sent = %FALSE;
  19.  
  20. if Arg1 goto Define_NIF_Strings;
  21.  
  22. ConnectStr = "Connecting to CompuPass";
  23. FailStr = "CompuPass not responding";
  24. HostStr = "C CIS" & %CR;
  25. goto Start_FENICS;
  26.  
  27. Define_NIF_Strings:
  28.     ConnectStr = "Connecting to NIFTY LL";
  29.     FailStr = "NIFTY LL not responding";
  30.     HostStr = "C CPS" & %CR;
  31.  
  32. Start_FENICS:
  33.     show ConnectStr;
  34.     Tries = 5;
  35.     on cancel goto Return_Cancel;
  36.  
  37. Wait_FENICS:
  38.     if Tries = 0 goto FENICS_Failure;
  39.     Tries = Tries - 1;
  40.  
  41.     wait
  42.         "ready"        goto Send_FENICS_Host,
  43.         %mdm_Failure    goto NO_Carrier,
  44.         "User ID:"    goto Check_Success,
  45.         "Host Name:"    goto Check_Success
  46.     until 80;
  47.  
  48.     send %CR & %CR & %CR;
  49.     Host_Sent = %FALSE;
  50.     goto Wait_FENICS;
  51.  
  52. Send_FENICS_Host:
  53.     if Host_Sent goto Wait_FENICS;
  54.     send HostStr;
  55.     Host_Sent = %TRUE;
  56.     goto Wait_FENICS;
  57.  
  58. Check_Success:
  59.     if Host_Sent goto Return_Success;
  60.     goto Wait_FENICS;
  61.  
  62. NO_Carrier:
  63.     FailStr = "Modem connection lost";
  64. FENICS_Failure:
  65.     define %FailureMsg = FailStr;
  66.     exit %Failure;
  67.  
  68. Return_Cancel:
  69.     exit %Cancel;
  70.  
  71. Return_Success:
  72.     send %CR;
  73.     exit %Success;
  74.